Option Explicit
Sub E_Sample013()
'ո E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCnt  As Long
    Dim myKey  As String
    Set myRng1 = Columns("A:I")				'jMӷd
    Set myRng2 = Range("K1:K2")  			'jMd
    myKey = ""					'w
    'NjMJxsdW
    myRng2.Cells(1, 1) = myRng1.Cells(1, 3)		'Wr
    myRng2.Cells(2, 1) = myKey          		'jMȡ]Ȫȡ^
    myCnt = WorksheetFunction.DCountA(myRng1, 1, myRng2)
    If myCnt = 1 Then
        myCnt = WorksheetFunction.DGet(myRng1, 9, myRng2)
        MsgBox myKey & "XpƬ" & myCnt & "C"
    Else
        MsgBox "SŦX󪺸"
    End If
    myRng2.Clear						'󪺧R
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
